perm filename TEST1.SAI[SAI,BGB] blob sn#105715 filedate 1974-06-06 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST1"
C00004 ENDMK
C⊗;
BEGIN "TEST1"
	REQUIRE "GEOMES.HDR" SOURCE_FILE;
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;

	INTEGER B1,B2,J1,J2,J3,J4,J5,J6,C1,CHR,I;
	MKUNIV;GEODPY;

	B1 ← INB3D("ARM[DAT,BGB]");	α MODEL OF THE ARM;
	B2 ← INB3D("TABLE[DAT,BGB]");	α MODEL OF THE ARM;

	J1 ← FDNAME("JOINT1");		α SHOULDER - ABOUT VERTICAL;
	J2 ← FDNAME("JOINT2");		α ARM - ABOUT HORIZONTAL;
	J3 ← FDNAME("JOINT3");		α SLIDE;
	J4 ← FDNAME("JOINT4");		α SLIDE;
	J5 ← FDNAME("JOINT5");		α SLIDE;
	J6 ← FDNAME("JOINT6");		α SLIDE;
	C1 ← INCAM("ARMCAM[DAT,BGB]");
	SHOW2(0,0);
FOR I←0 THRU 70 DO
BEGIN
	ROTATE(-J1,0,0,π/18);
	ROTATE(-J2,0,0,π/20);
	TRANSL(-J3,0,0,0.1);
	SHOW2(0,0);
END;
END;